home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / FAUG / FAUG05.ADF / milestone.bas < prev    next >
BASIC Source File  |  1992-01-03  |  7KB  |  157 lines
  1. 10    ' ************************************
  2. 11    ' **                                **
  3. 12    ' **           MILESTONE            **
  4. 13    ' **               by               **
  5. 14    ' **         David Addison          **
  6. 15    ' **                                **
  7. 16    ' **        C  1986   v 1.0         **
  8. 17    ' **                                **
  9. 18    ' ************************************
  10. 100   clr:SCREEN 0,5:graphic 1:audio 15,1
  11. 110   dim picture%(11000),regsave%(100)
  12. 120   bload "milestone_main_pic",varptr(picture%(0))
  13. 130   bload "milestone_pic_dat",varptr(regsave%(0))
  14. 140   ct=0
  15. 150   for i%=0 to 31
  16. 160   rgb i%,regsave%(ct),regsave%(ct+1),regsave%(ct+2)
  17. 170   ct=ct+3
  18. 180   next i%
  19. 200   gshape(0,0),picture%()
  20. 210   ask mouse x%,y%,b%
  21. 220   if x%>58 and x%<157 and y%>1 and y%<12 and b%=4 then goto 1000
  22. 230   if x%>204 and x%<242 and y%>1 and y%<12 and b%=4 then chain "milestonegame"
  23. 240   goto 210
  24. 1000  scnclr:pena 1
  25. 1010  RESTORE 10000
  26. 1020  READ A$
  27. 1030  IF ASC(A$)>47 AND ASC(A$)<65 THEN GOSUB 2000:GOTO 1020:REM *** locate x,y
  28. 1040  IF ASC(A$)=38 THEN GOSUB 3000:GOTO 1020:REM **** '&' page full
  29. 1045  IF ASC(A$)=94 THEN GOTO 200:REM '^' end
  30. 1047  IF ASC(A$)=126 THEN GOTO 1100
  31. 1050  FOR i=1 TO LEN(A$):PRINT  MID$(A$,i,1);
  32. 1060  rem cx%=SOUND(1,1,3,40,INT(RND*700)+700):cx%=SOUND(2,1,3,40,INT(RND*1000)+1000)
  33. 1070  FOR w=1 TO INT(RND(8)*10)+2:NEXT w
  34. 1075  NEXT i
  35. 1080  goto 1020
  36. 1100  penb 19:read a$:for i=1 to len(a$):print inverse(1) mid$(a$,i,1);
  37. 1110  cx%=sound(1,1,3,40,int(rnd*700)+700):cx%=sound(2,1,3,40,int(rnd*1000)+1000)
  38. 1120  for w=1 to int(rnd(8)*10)+2:next w
  39. 1130  next i
  40. 1140  penb 0:goto 1020
  41. 2000  x%=VAL(A$):READ A$:y%=VAL(A$):if x%<3 then print at(x%*8,y%*8); else print at((x%-1)*8,y%*8);
  42. 2010  cx%=SOUND(1,1,50,65,500):FOR w=1 TO 15:NEXT w:RETURN
  43. 3000  penb 26:print at(4*8,23*8);:PRINT inverse(1) "Press `BUTTON' continue.";
  44. 3010  ask mouse x%,y%,b%:if b%=0 then 3010
  45. 3020  ?:scnclr:penb 1:return
  46. 10000 DATA 1,1,~,OBJECT:,5,3,The object of this game is to be,3,4
  47. 10010 DATA the first one to accumulate a total,3,5
  48. 10020 DATA of 1000 miles in each hand played.,1,8
  49. 10040 DATA ~,THE CARDS:,5,9
  50. 10060 DATA ~,A...HAZARD AND REMEDY CARDS,5,10
  51. 10080 DATA Hazard Cards are played onto your,3,11
  52. 10100 DATA opponents' pile and Remedy Cards are,3,12
  53. 10120 DATA played on your own pile. For each,3,13
  54. 10140 DATA Hazard Card there are corresponding,3,14
  55. 10160 DATA Remedy Cards.,5,16
  56. 10180 DATA ~,A ROLL CARD,17,16,must be displayed on,3,17
  57. 10200 DATA your Battle Pile before you can play,3,18
  58. 10220 DATA any Distance Cards. (For the one,3,19
  59. 10240 DATA exception to this rule," see paragraph",3,20
  60. 10260 DATA on RIGHT OF WAY CARD.),&
  61. 10270 DATA 5,1
  62. 10280 data~,A STOP CARD,17,1,is played only onto,3,2
  63. 10300 data your opponents' Roll Card to prevent,3,3
  64. 10320 data them from playing further Distance,3,4
  65. 10340 data Cards until they cover it with,3,5
  66. 10360 data another Roll Card on a subsequent,3,6
  67. 10380 data turn.,5,8
  68. 10400 data ~,A SPEED LIMIT CARD,24,8,is played onto,3,9
  69. 10410 data your opponents Speed Pile along side,3,10
  70. 10415 data their Battle Pile. While it is,3,11
  71. 10420 data exposed  your opponent can only,3,12
  72. 10425 data play 25 mile or 50 mile cards. As,3,13
  73. 10430 data long as no cards are on your Speed,3,14
  74. 10435 data Pile  you are not subject to any,3,15
  75. 10440 data speed limit.,5,17
  76. 10445 data ~,AN END OF LIMIT CARD,26,17,is played on,3,18
  77. 10450 data your own Speed Pile  on a Speed,3,19
  78. 10455 data Limit Card  to permit you to resume,3,20
  79. 10460 data speed and play any mileage cards,3,21
  80. 10465 data including 75 100 and 200 mile cards.,&
  81. 10470 data 5,1
  82. 10475 data ~,AN OUT OF GAS CARD,24,1,is played onto,3,2
  83. 10480 data your opponents' Roll Card. They,3,3
  84. 10485 data cannot play further Distance Cards,3,4
  85. 10490 data until they have first played a,3,5
  86. 10495 data GAS CARD and then a Roll Card,3,6
  87. 10498 data on subsequent turns.,5,8
  88. 10500 data ~,A FLAT TIRE CARD,22,8,is played onto,3,9
  89. 10505 data your opponents' Roll Card. They,3,10
  90. 10510 data cannot play further Distance Cards,3,11
  91. 10515 data until they have first played a,3,12
  92. 10520 data SPARE TIRE CARD and then a Roll Card,3,13
  93. 10525 data on subsequent turns.,5,15
  94. 10530 data ~,AN ACCIDENT CARD,22,15,is played onto,3,16
  95. 10535 data your opponents' Roll Card. They,3,17
  96. 10540 data cannot play further Distance Cards,3,18
  97. 10545 data until they have first played a,3,19
  98. 10550 data REPAIR CARD and then a Roll Card on,3,20
  99. 10555 data subsequent turns.,&
  100. 10560 data 5,1
  101. 10565 data ~,B...SAFETY CARDS,22,1,--Safety Cards,3,2
  102. 10570 data are played in your own Safety Area,3,3
  103. 10575 data and prevent you from being stopped,3,4
  104. 10580 data by the corresponding Hazard Cards,3,5
  105. 10585 data for the balance of the hand. As,3,6
  106. 10590 data soon as a safety is played  it,3,7
  107. 10595 data prevents any further attack and,3,8
  108. 10600 data cancels the attack in progress.,&
  109. 10625 data 5,1
  110. 10630 data ~,RIGHT OF WAY CARD:,3,2
  111. 10635 data When displayed in your Safety Area,3,3
  112. 10640 data your opponent can't play a Stop Card,3,4
  113. 10645 data on your Battle Pile and can't play a,3,5
  114. 10650 data Speed Limit Card on your Speed Pile.,5,6
  115. 10685 data ~,EXTRA TANK CARD:,3,7
  116. 10690 data When displayed in your Safety Area,3,8
  117. 10695 data your opponent cannot play an Out,3,9
  118. 10700 data of Gas Card onto your Battle Pile.,5,10
  119. 10705 data ~,PUNCTURE PROOF CARD:,3,11
  120. 10710 data When displayed in your Safety Area,3,12
  121. 10715 data your opponent cannot play a,3,13
  122. 10720 data Flat Tire Card on you.,5,14
  123. 10725 data ~,DRIVING ACE:,3,15
  124. 10730 data When displayed in your Safety Area,3,16
  125. 10735 data your opponent cannot play an,3,17
  126. 10740 data Accident Card on you.,&
  127. 10745 data 5,1
  128. 10750 data ~,COUP FOURRE:,3,2
  129. 10755 data (pronounced Coo-Foo-Ray),3,3
  130. 10760 data If your opponent plays a Hazard,3,4
  131. 10765 data Card and you hold the corresponding,3,5
  132. 10770 data Safety Card in your hand you may,3,6
  133. 10775 data call `COUP FOURRE' and immediately,3,7
  134. 10780 data play the Safety Card to your,3,8
  135. 10785 data Safety Area and recieve a 300,3,9
  136. 10790 data point bonus.,5,11
  137. 10800 data ~,SCORING:,3,12
  138. 10805 data Each person scores as many points,3,13
  139. 10810 data as the total number of miles that,3,14
  140. 10815 data they have traveled.,3,16
  141. 10820 data Each Safety Card played = 100 points,3,18
  142. 10825 data Each Coup Fourre = 300 points.,3,20
  143. 10830 data Bonus for making 1000 miles = 400.,3,22
  144. 10835 data Shut out = 500 points.,&
  145. 10840 data 5,1
  146. 10850 data ~,USING THE MOUSE:,3,2
  147. 10855 data Point to PLAY or DISCARD with the,3,3
  148. 10860 data mouse and press Left Button  then,3,4
  149. 10865 data point to the card you want to use,3,5
  150. 10870 data and press Left Button again.,5,7
  151. 10875 data To remove Message at top of,3,8
  152. 10880 data screen press Left Button.,5,10
  153. 10885 data Answer Yes or No questions with,3,11
  154. 10890 data the Keyboard.,10,13
  155. 10895 data ~," HAVE FUN !!!!!",&,^
  156. 30000 GOTO 30000
  157.